home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Spaced Out / DigitalVision: Spaced Out - Disc 1.iso / pc / data / images.dxr / Internal_73_display current cd.ls < prev    next >
Encoding:
Text File  |  2001-10-22  |  677 b   |  21 lines
  1. global gImageResultList, gArtistList
  2.  
  3. on beginSprite me
  4.   Section = utilsGetSection()
  5.   sectionList = utilsGetState(Section)
  6.   if sectionList.CDname <> VOID then
  7.     cdCode = sectionList.cdCode
  8.     CDname = sectionList.CDname
  9.     artist = gArtistList[symbol(cdCode)]
  10.     numOfImages = gImageResultList.count
  11.     displayStr = "CD: " & CDname & RETURN
  12.     displayStr = displayStr & "Artist: " & artist & RETURN
  13.     if Section = #keywordsearch then
  14.       displayStr = displayStr & "Images: " & numOfImages & " - matching your search criteria"
  15.     else
  16.       displayStr = displayStr & "Images: " & numOfImages
  17.     end if
  18.     member("CD Description").text = displayStr
  19.   end if
  20. end
  21.